home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 April / Ahoy_Magazine_87-04_1987_Double_L.d64 / Animated Expan 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  530b  |  18 lines
  1. 0 poke646,1:poke53281,0:poke53280,0
  2. 1 rem ==================================
  3. 2 rem    commodares problem #36-2 :
  4. 3 rem    animated expansion
  5. 4 rem    solution by
  6. 5 rem    bing perry
  7. 6 rem ==================================
  8. 10 input"[147]enter number of spaces";s
  9. 20 input"enter word";a$ : l=len(a$)
  10. 30 print "[147]"a$ : gosub 100 : for k=1 to l-1
  11. 40 for j=1 to s : a$=left$(a$,(k-1)*(s+1)+j)+"."+right$(a$,l-k):print""+a$
  12. 50 gosub 100 : next : next
  13. 60 for k=l-1 to 1 step -1
  14. 70 for j=s to 1 step -1 : a$=left$(a$,(k-1)*(s+1)+j)+right$(a$,l-k)
  15. 80 print""+a$+" ":gosub 100 :next :next
  16. 90 end
  17. 100 for t=1 to 20 : next : return
  18.